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DTX06 

1620-1 INDIRECT ADDRESSING TEST 
DIPAL NEAME DX06 



PROGRAM DESCRIPTION 

1. Purpose 

This program tests the circuitry used by the indirect addressing 
feature on the 1620-1. 

2. Test Method 

ThP nroeram is a fault detection test, and is divided into short 
SdepS routines. There are two common error routines and any 
fl^te-ted error will exit to one of these routines. Not all instruc 
Sons are tilled for correct indirectly addressed operation, since 
mo s? operations use common circuitry. The program deck is x» standard 
SPS format and uses the SPS loader. 

3. Modifications 

The program contains the necessary linkage to make it compatible with 
the DIPAL monitor. 

4. Units of System Required 

This test requires thf* 1620 CPU and the 1622 card reader or 1621 Paper 
Tape Reader. 

5. E/C Level 

This test applies to fdl level and suffix machines with the indirect 
addressing feature. 

LOADING INSTRUCTIONS 
1. Clear Core 

2 Load test deck from 1622 by pushing load button or from 1621 by 
inserting 36 00000 00300R-S 

To reproduce the paper tape, 

Insert 3600000 00300, Release, and ' 

Press "SIE" button. After tape has loaded, insert 

LOC 

00000 35 00000 00200 
00012 41 00514 00000 
00024 16 00013 0049 
00036 16 00001 00041 
00048 49 00514 

5hen a Mlf Sfreached 05080, stop by pressing "SCE" button, reset, 

and insert 35 19999 00200. 

Release/start 
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LOADING INSTRUCTIONS - Continued 

3. Machine will halt with 0001} r In MAR. Press START to execute program. 



OPERATING INSTRUCTIONS 



1. '. No manual intervention othejr than the setting of the Console Switches 
is required for normal operation. 

<i. Console Program Switches 

The switches have the following functions in this program: 

Switch 1 ON bypass, all error routines. 

OFF Test Switch 3 on error 

Switch 2 ON Loop In test routine 

OFF Continue to next routine 

Switch 3 ON Halt qn error if Switch 1 off 

OFF Typeovjt on error if Switch 1 off 



Switch 4 ON Repeat program 

OFF Load next program from 1622 

3. Every 1000 passes, the test n«}me and number of passes wi_l be typed 
out. At the completion of any pass and Switch 4 OFF, the test name 
and number of passes complete will be typed out and the Card Reader 
will be selected to load the next program. 

4. Data Check Switches 



The program does not test the status of the Data Check Indicators. It 
is recommended that the progreim be run with the Data Check Switches ON. 

5. Normal Program Halts 

The only normal Halt is at location 00000 in the SPS loader. Press 
START to execute the program. 



ERROR INFORMATION 

1. Error Halts 

There is one error halt in this program: 

03014 Detected error. Display 1R 2 for location +12 of error exit. 

2. Error Typeouts 

Error typeouts will provide the location of the first instruction in 
the failing routine, and the instruction being tested. 
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Cpntinued 
EXAMPLE: 

1/A FAILURE, LOC 01640 
A 03595 03664 

. ^ i „ n€ +hp fi ra t instruction in the routine, the 

SS^lSTblSfSStSS ME With the »P» address indirectly 
addressed. 
If Divide is not installed, 

Insert 36 02588 00100 

49 00538 R-S 

Then type in 02734 R-S 

Card number 113 (Columns 76-80) can be changed by punching 2734 in 
columns 4, 5, 6 & 7. 
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c 



Start 



538 



Pctge 2 



o 



f Type Test \ 
V Name J 



574 



Test 

Return 
Carriage 



654 
BTM 



Test 

"<* 1 No Operat- 
ion 



754 



Page 2 



BTM 

0 1 

854 



BB 



Test 
Set Flag 



BB 



BTM 



Test 
Branch 
No Flag 



940 
BTM 



BB 



Test 

Branch No 
Record MK 



1026 
BTM 



BB 



Test 
Branch 
On Digit 



BB 
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1100 
BTM 

ygjm — <— — 



1210 

0-- 

Page 2 



Test 

Transmit 
Record 



BB 



Test 

Branch 
Back 



1334 
BTM 



BB 



Test 

Add 
Immediate 



1444 
BTM 



BB 



Test 
Add 



BB 



2342 

BTM 



Test 
Compare 



2428 

BTM r 

"1 



BB 



Test 
Multiply 



2624 
BTM 



BB 



Test . 
Divide 



Page 2 




BB 
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2734 



Update 
!Pass Count 



SW 4 







ON 


2854 












Passes 










YES 


2782 



NO 



2818 



2830 




Page 1 




. Restore 
(Data Field 
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DTX06, 1620-1 I/A TEST 



00500 
00501 
00512 
00514 45 
00526 49 
00538 34 
00550 31 
00562 39 
00574 34 



00004 

00005 -5080 
00538 18117 
18000 00000 
00654 00102 
I 0000 03581 
00611 00100 

roooo ooi ok 



DORG §00 



START 



DAC 
DSA 
BNR 
0 



4.0X06, 

EVNO 

*+24, 18117 
|8Q00 



RCTY yi 

TR |0Q00,KAl-4, , SAVE WORKING DATA 
WATY NAME , • , TYPE TEST NAME 

RCTY TEST FOR I/A, WILL ADDRESS 

ADD TABLE IF I/A CYCLE TAKEN 



00586 


16 


00539 


000M9 




TFM 


START+25,49,10 


00598 


49 


00654 


00000 




B 






00611 




00022 




NAME 


DAC 


*2iDTX06,1620- 


1 I/A TEST* 










• 
• 


TEST THAT NOP WILL NOT I/A BY A R/M 










• 


IN QQTH P AND Q 


FIELDS 


00654 


41 


0000- 


0000- 


Tl 


NOP 


t tUl, 


FLAG IN P2 AND Q7 


00656 




00001 






DC 


I , ' » *-9 , 


RM IN P2 


0066 1 




00001 






DC 


1.' »»~4, 


RM IN 07 


00666 

W V \f 


47 


00690 


00800 

\t \r \J \t \r 




HNI 


• ♦24 ,800, , 


TEST FOR NO MAR CK 


00678 


U 


03312 


-0714 




BTM 


ER? , •♦36,, 


GO TO ERROR RTN 


00690 


46 


00654 


00200 




BC2 


Tl,,. 


LOOP IF SW2 ON 


00702 


49 


00754 


00000 




0 


T2 












• 


ERROR, MESSAGE 




00718 




00005 


-0654 




DSA 


Tl 




00719 




00001 






DSC 


1.3 




00721 




00004 






DAC 


4, NOP , 




00728 




00002 






DSC 


2.22, 




00731 




00004 






DAC 


4,Q|00 , 




00739 




00002 






DC 


2,q 




00740 




00004 






OSC 


4,<f022, 




00745 




00004 






DAC 


4,(J00 , 




00753 




00002 




• 


DC 


2.<r 












• 
» 


TEST THAT Q FIELD OF SF OPN W ILL NOT 


00754 


32 


00000 


0000- 


T2 


SF 


0,0,11, 


I/A Q ADDRESS 


00761 




00001 






DC 


l,«*«-4. 


R/M IN Q7 


00766 


47 


00790 


00800 




BNl 


•+24,800, , 


TEST FOR NO MAR CK 


00778 


17 


03312 


-0814 




BTM 


ER?,»+36,, 


GO TO ERROR ROUTINE 


00790 


46 


00J54 


00200 




BC2 


T2,,, 


LOOP IF SW2 ON 


00802 


49 


00854 


00000 




B 


T3 












• 


ERROR MESSAGE 




00813 




00005 


-0754 




DSA 


T2 




00819 




OOCOl 






DSC 


1,0 




00821 




00009 






DAC 


9,SF 0000 , 




00839 




00002 






DC 


2,0 




00840 




00004 






DSC 


4,0022 




00845 




00004 






DAC 


4,000 , 




00853 




00002 




• 


DC 


2,0* 












• 
• 




TEST THAT Q FLD 


OF BNF WILL I/A 


00854 


44 


00878 


0361N 


T3 


BNF 


•+24,-KA7, , 


NO BRANCH IF I/A 


00866 


49 


00890 


00000 




B 


•+2A , , , 


OK 


00878 


17 


02990 


-0914 




BTM 


ERR, •+36,, 


GO TO ERROR ROUTINE 


00890 


46 


00854 


00200 




8C2 


T3,., 


LOOP IF SW2 
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00902 49 00940 00000 



00918 
00919 
00921 
00932 
00937 
00938 



00005 -0854 

00001 

00004 

00005 -0878 
00005 -361N 
00001 



00940 45 C0964 0362- 
00952 49 00976 00000 
00964 17 02990 -1000 
00976 46 00940 00200 
00988 49 01C26 00000 



01004 
01005 
01007 
01018 
01023 
01024 



00005 
00001 
00004 
00005 
00005 
00001 



-0940 



-0964 
-362- 



01026 43 0501K 03658 
01038 17 02990 -1074 
01050 46 01Q26 00200 
01062 49 01100 00000 



01078 
01079 
01061 
01092 
01097 
01098 



00q05 -1026 

ooqoi 

00004 

00005 -501K 
00Cj05 -3658 

ooqoi 



01100 
01112 
01124 
01136 
01148 
01160 
01172 

01188 
01189 
01191 
01202 
01207 
01208 



16 
31 
24 
46 
17 
46 
49 



03671 
03666 
03664 
01160 
02990 
01100 
01210 

00005 
00001 
00004 
00005 
00005 
00001 



01236 
01241 



00001 
OOQOI 



T4 



T5 



B T4 

ERROR MESSAGE 
DSA T3 
DSC 1.0 
DAC 4.BNF , 
DSA T3*,?4,»-KA7 



DC 



TEST THAT Q FLO OF BNR WILL I/A 



BNR •♦24.-KA8,, 

B »+24,tt 

BTM ERRt»*36.» 

BC2 T4,», 

8 T5 

ERROR MESSAGE 

DSA T4 

OSC 1*0 

DAC 4, BNR ♦ 

DSA T4*24,<-KAB 



NO BRANCH IF I/A 
OK 

GO TO ERROR ROUTINE 
LOOP IF SW2 ON 



DC 



TEST THAT P FIELD OF BD WILL I/A 



BD -801 |KD1 « * 

BTM ERR,»+36,, 

BC2 T5.*t 

B T6 

ERROH MESSAGE 

DSA T5 

DSC lit} 

DAC 4, $D , 

DSA -BQJ.K01 



SHOULD BRANCH TO 5024, RETURN TO T5*24 
GO TO ERROR ROUTINE 
LOOP IF SW2 ON 





• 


DC I , • 






• 

• 


TEST THAT Q FLO 


OF TR WILL I/A 


-0000 


T6 


TFM KWK.O,, 


CLEAR WORK FLD 


0362N 




TR KWK-5,-KA9,, 


TRANSMIT REC OF -099993 


03671 




C KD2 pKWK* t 


CHECK FOR CORRECT RESULT 


01200 




BE » + 24 




-1184 




BTM ERR, •♦36,, 


GO TO ERROR ROUTINE 


00200 




BC2 T6,», 


LOOP IF SW2 ON 


00000 




B T7 






• 


ERROR MESSAGE 




-1100 




DSA T6 








DSC 1,0 








DAC 4.TR , 




-3666 




DSA KWK-5.-KA9 




-362N 












DC 






• 


TEST THAT BB DOES NOT TAKE I/A CYCLE 


000-0 


T7 


BTM •♦24,0,10, 


SETUP FOR BB TEST 


00000 




B •♦?4,,, 


SKIP GUT 


0000- 




BB ,,611, 


R/M IN P2 AND G7.MAR CK 






DC I, ',•-9, 


R/M FOR P2 






DC l,'.*-4, 


R/M FOR Q7 
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01246 47 01270 00800 
01253 17 03312 -1294 
01270 46 01210 00200 
01282 49 01334 00000 

» 

01298 00005 -1210 

01299 00001 
01301 00004 
01308 00002 
01311 00004 

01319 00002 

01320 00004 
01325 00004 

01333 00002 

• 

01334 16 03671 -9696 T8 
01346 11 03671 0R690 

01358 46 01382 01200 
01370 17 02990 -1406 
01382 46 01334 00200 
01394 49 01432 00000 

01410 00005 -1334 

01411 00001 
01 41 3 00004 

01424 00005 -3671 

01425 00001 

01429 00004 

01430 00001 



01432 32 01537 00000 

01444 26 03671 03658 T9 

0l'»56 21 03671 030*4 

01468 46 01492 01200 

01480 17 02990 -1516 

01492 46 01444 00200 

01504 49 01542 00000 

01520 00005 -1444 

01521 00001 
01523 00004 
01534 00005 -3671 

01539 00005 -3664 

01540 00001 



01542 26 03671 03658 T10 

01554 21 03671 0359- 

01566 46 01590 01200 

01578 17 02990 -1614 

01590 46 01542 00200 

01602 49 01640 00000 

• 

01618 00005 -1542 

01619 000Q1 
01621 000Q4 
01632 00005 -3671 
01637 00005 -359- 



BN1 «*24,S00, , TEST FOR MAR CK 

8TM F.*2, » + 36 t » GO TO ERROR ROUTINE 

BC2 T7,» , LCOP IF SW2 ON 

B T8 

ERROR MESSAGE 

OSA T7 

DSC 1,0 

DAC 4 j B (u , 

DSC 2,2? 

DAC 4,000 8 

DC 2,0 

DSC 4.0G22 

DAC 4,000 » 

DC 2,0« 

TEST THAT AM WITH NEG Q WONT I/A 

TFM KWK.9696, , SET WORK AREA 

AH KWK, 9696, 811, SUM SHOULD BE ZERO 

BZ *+24, 

BTM ERR,»+}6, , GO TO ERROR ROUTINE 

BC2 T8,», LOOP IF SW2 ON 

B T9-J2 

ERROR MESSAGE 

OSA TO 

USC 1,0 

DAC 4, AM « 

DSA KWK 

DSC 1,0 

DC 4,-<*696. 

DC 1, • 

TEST THAT FLAG IN Q9 WILL NOT I/A 

SF T9+<J>3 t «t SET FLAG IN ERROR MESSAGE 

TF KWK,KD1 , , SET WORK AREA 

A KWK,KD2,9, FLAG IN Q9,N0 I/A 

BZ **2\, ,, SHOULD BE ZERO 

8TM ERR, »«-36, t GO TO ERROR ROUTINE 

BC2 T9 , < , LOCP IF SW2 ONP 

B T10 

ERROR MESSAGE 

OSA T9 

DSC 1,0 

DAC 4, A , 

DSA KWK,KD2 

DC 1,' 

TEST THAT 0 ADR OF ADD WILL I/A 

TF KWK, KOI , , SET WORK AREA 

A KWK »— KA2 , , Q I/A 

BZ «+24,,, SHOULD BE ZERO 

BTK ERR,»+36,, GO TO ERROR ROUTINE 

BC2 T10,,, LOOP IF SW2 ON 

B Til 

ERROR MESSAGE 

DSA T10 

DSC 1,0 

DAC 4, A , 

OSA KWK,-KA2 
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01638 




OOOQl 




01640 


26 


03671 


03658 


01652 


21 


0359N 


03664 


01664 


46 


01688 


01200 


01676 


17 


02990 


-1712 


01688 


46 


01640 


00200 


01700 


49 


01738 


00000 


01716 




C3005 


-1640 


01717 




00001 




01719 




00004 




01730 




00005 


-359N 


01735 




00005 


-3664 


01736 




00001 




01738 


26 


03671 


03658 


01750 


Kl 


03671 


03664 


01762 


46 


01798 


01200 


01774 


17 


02990 


-1822 


01786 


39 


01849 


00100 


01798 


46 


01738 


00200 


01810 


49 


01894 


00000 



DC 



01826 
01827 
01829 
01840 
01845 
01846 
01849 



01894 
01906 
01918 
01930 
01942 
01954 
01966 

01982 
01983 
01985 
01996 
02001 
02002 
02005 



00Q05 -1738 

00Q01 

00Q04 

00Q05 -3671 
00005 -3664 
OOQOi 
00Q23 



26 03671 03658 
21 0361- 0360N 
46 01954 01200 
17 02990 -1978 
39 02005 00100 
46 01894 00200 
49 02048 00000 

00005 -1894 

00001 

00004 

00005 - 361- 
00005 -360N 
00001 
00022 



02048 26 
02060 21 
02072 46 
02084 17 
02096 46 
02108 49 



03671 03658 
0505J 0506K 
02Q96 01200 
02990 -2120 
02048 00200 
02J.46 00000 



« 

Til 



T12 



SPEC 
«» 

T13 



TEST THAT P ADR OF ADD WILL I/A 



TF 
A 

BZ 
BTM 
BC2 
B 



KWKtKDl » i 
— KA3 t KQ2 t » 
*+24, i t 
ERR,**36»» 
TU,,, 
T12 

MESSAGE 



SET WORK AREA 
P I/A 

SHOULD BE ZERO 

GO TO ERROR ROUTINE 

LGOP IF SW2 ON 



ERROR 
DSA TU 
DSC 1,0 
OAC 4, A , 
DSA -KA3.KD2 



OC It' 

TEST ADD WITH 
TF KWK, KD1 » , 
A KWK,KD2,0, 
BZ »+36,,» 
BTM ERR, »*h8 , , 
WATY SPEC, 
BC2 T12,,, 
B TU 

ERROR MESSAGE 
DSA T12 
DSC l,l| 
DAC 4,4 » 
OS A KWlt,K02 



FLAG ON TENS POS OF OP CODE 
SET WORK AREA 
FLAG ON 2 OF OP COOE 
SHOULO BE ZERO 
GO TO ERROR ROUTINE 
TYPE SPECIAL MESSAGE IF ERROR 
LOOP IF SW2 ON 



DC 
OAC 



23, 



FLAG ON 2 OF OP CODE ' 



TEST ADD, P AND Q BOTH WITH CHAINED I/A 



KWK ,KDl, , 
-KA6,-KA5, • 
*+36» , , 
ERR,**46,, 
SPE2 , , , 
T13,,, 
T14 

MESSAGE 



TF 
A 

BZ 
BTM 
WATY 
8C2 
B 

ERROR 
DSA T13 
DSC 1,0 
DAC 4, A 
DSA -KA6, 



SET WORK AREA 
BOTH ADDRESSES CHAINED 
SHOULD BE ZERO 
GO TO ERROR ROUTINE 
SPECIAL MESSAGE IF ERROR 
LOOP IF SW2 ON 



• KA5 



DC 



SPE2 


DAC 


• 




• 




• 


i 


T14 


TF 




A 




BZ 




BTM 




BC2 




B 



1,' 

22, 



P AND Q CHAINED I/A« 



ADDRESSES ON ADD 



KWK,KD1, , 
-0DD1.-EVN2, , 
»+24» , , 
ERf*,*+36, , 
T14, ,, 
T15 
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SET WORK AREA 

I/A P AND Q 
SHOULD BE ZERO 
GO TO ERROR ROUTINE 
LOOP IF SW2 ON 



» ERROR MESSAGE 









cv/HO 




DSA T14 




ft? 1 ? 




onoo i 






DSC 1,0 




02127 




00004 

U U U U " 






D AC 4 , A » 




021 ^ ft 




nnnns 

V V \> *J J 


— 1 




DSA -Q0D1,-EVN2 




0 21 4^ 




ft n n ("i c 


.> UOr\ 












00001 

V \t \J \J L 






DC 1, • 














TEST tODD/EVEN GATING WITH ADD 




26 


03671 


0^ A, 5ft 

V .7 u O 


Til 


TF KWK ( KDl , r 


SET WORK AREA 


02158 




0«507N 






A -0D i f)5,-EVN6, , 


I/A P AND Q 


n? i ?n 


4A 


021 Q4 






BZ **Zk,, t 


SHOULD BE ZERO 


02182 


17 


02990 


-2218 




BTM ERR,*+36,, 


GO TO ERROR ROUTINE 


02194 


46 


02146 


00200 




8C2 T15 M , 


LOOP IF SW2 ON 


02206 


49 


02244 


00000 




8 T16 














ERROR MESSAGE 




02222 

V & C. £ «b 




OOOOS 


— 21 4fe 




DSA T15 




0222^ 

V C C S. J 




oono t 






DSC 1.0 




02225 




00004 






DAC 4, A , 




02236 

v £ & J w 




oooos 

VUUU3 


— 5f>7N 




DSA -0DQ5,-EVN6 




02241 














0224? 




0000 1 






0C I,' 












# 
# 


TEST ODD/EVEN GATING WITH ADD 




CO 


U 36 1 1 


Alitfl 
O 0 


T 16 


TF KWK, KDl,, 


SET WORK AREA 




c I 


U5U6K 


U5UO" 




A -QDp9,-EVN0, , 


I/A P AND Q 


u^oo 


HO 


mini 


01200 




BZ •♦24,,, 


SHOULD BE ZERO 


02280 


17 


02990 


-2316 




BTM ERR,»+36,, 


GO TO ERROR ROUTINE 


02292 


46 


02244 


00200 




8C2 T16,,, 


LOOP IF SW2 ON 




A.Q 




UUUUU 




B T17 












# 


ERROR MESSAGE 




ft p *i2fi 




UUUUj 






DSA T16 




U £ Jit 1 




ft on n i 






DSC 1,0 














0AC 4, A , 




073 ^4 




nftftft s 


•.Cft AD 




USA -0DP9.-EVN0 








ftftftftS 










w*. -*~ v 




\j yj v \j L 






DC 1,' 














TEST COMPARE WITH ? AND Q I/A 




74 


ft IK CM 


U JO JIN 


T 1 7 
111 


C -KAJ,-KC1,, 


I/A P AND Q 




At 
HO 




ft 1 9ft ft 




BE »*2^,», 


SHOULD BE EQUAL 


02366 


17 


02990 


-2402 




BTM ERR ? »*36», 


GO TO ERROR ROUTINE 


02378 


46 


02342 


00200 




BC2 T17 ft , 


LOOP IF SW2 ON 


ft p ion 


4Q 


ft 5A>ft 


ftftftftft 

UUUUU 




B T18 














ERROR MESSAGE 








ftftftft R 


"£ Jl < t£ 




DSA T17 




ftOAft7 




ft ft ft ft 1 






DSC 1,0 








ftftftftA 






DAC 4,C , 




ft O AO ft 




ft ftftft c 
UUUU3 






DSA -KAl.-KCl 








ftftftft c 










02426 




00001 






DC 1,' 












• 
• 


TEST THAT P ADR 


OF MULT WILL I/A 


02428 


23 


0363- 


03647 


T18 


M -MA, KM,, 


I/A P ADR 


02440 


24 


03651 


00099 




C ANS,99,, 


TEST PRODUCT 


02452 


46 


02476 


01200 




BE »+24 




02464 


17 


02990 


-2500 




BTM ERR f »+36,, 


GO TO ERROR ROUTINE 


02476 


46 


02428 


00200 




BC2 TIB,,, 


LOOP IF SW2 ON 


02488 


49 


02526 


00000 




B T19 
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02504 
02505 
02507 
02518 
02523 
02524 



000Q5 -2428 

00001 

00004 

00005 -363- 
00005 -3647 
00001 



02526 23 
02538 24 
02550 46 
02562 17 
02574 46 
02586 49 

02602 
02603 
02605 
02616 
02621 
02622 

02624 28 
02636 29 
02648 24 
02660 46 
02672 17 
02684 46 
02696 49 

02712 
02713 
02715 
02726 
02731 
02732 



03647 0363- 
C3651 00099 
02574 01200 
02990 -2598 
02526 00200 
02<24 COOOO 

00005 -2526 

0000) 

00004 

00005 -3647 
00005 -363- 
00001 



00099 
00098 
03647 
02684 
02990 
02624 
02734 



03651 
0363- 
00097 
0)200 
-2708 
00200 
00000 



00005 -2624 

00001 

00004 

00005 -0098 
00005 -363- 
00001 



02734 11 
02746 46 
02758 45 
02770 49 
02782 34 
02794 38 
02806 39 
02818 46 
02830 36 
02842 49 
02854 24 
02866 46 
02878 46 
02890 49 
02904 
02909 
02910 
02913 



02909 

02854 

02782 

18000 

00000 

02905 

02913 

00654 

00000 

00000 

02904 

02878 

02782 

00654 

00003 

00005 

00001 

00024 



-0001 

00400 

18117 

00000 

00102 

00100 

00100 

00400 

00500 

00000 

02909 

01400 

01200 

obooo 



T19 



T20 



ERROR MESSAGE 
DSA T18 
DSC UO • 
DAC 4,M , 
DSA -MA f KM 



DC It' 

TEST THAT Q ADR OF MULT WILL I/A 



ZR 
CT 

PHU 



M 
C 

BE 
BTM 
BC2 
B 



THREW 



ERROR 
DSA T19 
DSC ItO 
DAC 4,M 
DSA KM, 



DC 



KM, <-MA, , 
ANS,99,, 
• ♦2* 

ERRr*+36tt 

T19 M , 

T20 

MESSAGE 



I/A Q ADR 
TEST PROOUCT 

GO TO ERROR ROUTINE 
LOOP IF SW2 ON 



■MA 



It' 

TEST THAT 
ID 99»ANS,, 
D 98»rMA»t 
C KM,97tt 
BE *+24 
BTM ERR.*+36,» 
BC2 T20,,, 
D THREW,,, 

ERROR MESSAGE 
DSA T20 
DSC ItO 
DAC 4,D , 
DSA 98 »*-MA 

DC 1,' 



Q FLD OF DIVIDE WILL I/A 



I/A Q 
CHECK 



ADR 

QUOTIENT 



GO TO ERROR RO: TINE 
LOOP IF SW2 ON 
PASS COMPLETE 



AM 

BC4 
BNR 
B 

RCTY 

WNTY 

WATY 

BC4 

RNCD 

B 

C 

BV 
BE 
B 

DC 
DC 
DC 
DAC 



PASS COMPLETE 
CT.l,,, 
» + 108 

•+24,18117 
18000, , , 



ROUTINE 
UPDATE 



PASS COUNT 



CT-4,,, 

PHU 

Tl,,, 

0, , , 

0 

ZR.CT,, 

♦ +12, , , 

THREW+48', , , 

Tl 

3,0 

5,0 

1, ' 
24, 



GO TO MONITOR 

TYPE NUMBER PASSES COMPLETE 

REPEAT PROGRAM IF SW4 ON 
LOAD NEXT DECK 



SEE IF 1000 
RESET OFLO 



PASSES COMPLETE 



MASSES COMPLETE, DT X06» 
ERROR ROUTINE NUMBER ONE 
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02961 




00001 




EMS DAC 


If t , 


ERROR MESSAGE AREA 


02962 




00028 




OSC 


28,0 






A A 

HO 




00 I00 


ERR BCi 


SNQP»»» 


BYPASS ERROR INDICATION IF SW1 




JL7 
*fr f 


03038 


UU3UU 


8NC3 


*+36 , » « 


ft \ f f-\ m M BLAB -T f* *— ~. 

BYPASS HALT IF SW3 OFF 




A O 
HO 


A A A A A 


A i*i n n 

uuuuu 


H 


» » » 


IR2 HAS LOC+12 OF ERROR EXIT 


ft 1 A •> jL 

03026 


a rt 


03242 


/\ ^\ 

00000 


B 


SNOP-12 




UJU38 


*> A. 


A 1 A i. 1 

0306 1 


0**:9o9 


TF 


•♦23 , ERR-i f t 


SET ERROR MESSAGE LOCATION 


0 3050 


31 


nidi ft 

02960 


/\ ^\ 

00000 


TR 


EMS-1 hi 


BRING IN ERROR MESSAGE 


(13(111 

030o<; 


3** 


A A A A A 

00000 


00102 


RCTY 








1 A. 


A A A A A 


A A 1 A 

00102 


RCTy 






(v i/io j: 
03086 


1 A 

26 


03304 


02964 


TF 


PHNK-i,EMS*3», 


SET ROUTINE LOCATION 


U 30V a 


39 


03267 


00 100 


WATY 


CiLYOE 




031 10 


38 


03300 


00100 


WNTY 


P^NK-5»,» 


TYPE LOCATION 


03122 


34 


00000 


00102 


RCTY 




nut a 

03 1 3h 


26 


03304 


02978 


TF 


PHNI{-l»EMS*l7» 


iMOVE P FLD 


031*6 




02973 


ft ft t\ ft f\ 

00000 


TDM 


EMS r 12, 1 1 


SET RM AFTER OPN FLD 


03157 




00001 




DC 


EMSf6, , t 




03L58 


39 


02967 


00100 


WATY 


TYPE OPERATION 


03170 


34 


00000 


00101 


SPTY 




Ait a •> 

U 3 I HI 


33 


03 300 


A A A A A 

00000 


CF 


n » 1 in/ r~ 

PHNK-5 




03194 


38 


03300 


00100 


WNTY 


PHNlf-5,,, 


TYPE P FLD 


03206 


34 


00000 


00101 . 


SPTY 






03218 


33 


02979 


00000 


CF 






03230 


38 


02979 


00100 


WNTY 


EMStUttt 


TYPE Q FLD 


03242 


31 


0358I 


10000 


TR 


KAW4, 10000, • 


RESTORE DATA FIELDS 


03254 


42 


00000 


00000 


SNOP 8B 




RETURN TO PROGRAM 


03267 




000I7 




CLYDE DAC 


17!|/A FAILURE 
6,» 


,L0C « 


03305 




00006 




PHNK DC 





* ERROR ROUTINE NUMBER TWO 



03310 




00005 




DC 


5,0 




03312 


46 


03254 


00100 


ER2 BCI 


SNOP, , f 


BYPASS ERROR INDICATION IF 


03324 


46 


03014 


00300 


BC3 


ERR* 24,,, 


GO TO HALT IF SW3 ON 


03336 


26 


03359 


03311 


TF 


•+2J,ER2-1,, 


SET ERROR MESSAGE LOCATION 


03348 


31 


03540 


00000 


TR 


MICW,,, 


BRING IN ERROR MESSAGE 


03360 


26 


03304 


03544 


TF 


PHN((-l,MIC-3, 


,S£T ROUTINE LOCATION 


03372 


25 


03563 


03665 


TD 


KEYfl.ftM,, 


SET UP FOR 6RR0 TYPCOUT 


03384 


25 


03577 


03665 


TD 


MQUv 1 , RM 




03396 


25 


03565 


03665 


TD 


KEYfl ,RM 




03408 


25 


03545 


03665 


TD 


MIC-r2,RM 




03420 


34 


00000 


00102 


RCTY 






03432 


34 


00000 


00102 


RCTY 






03444 


39 


03267 


00100 


WATY 


CLY0E 




034S6 


38 


03300 


00100 


WNTY 


PHNtC-5 




03468 


34 


00000 


00102 


RCTY 






03480 


39 


03547 


00100 


WATY 


MIC 




03492 


38 


03564 


00100 


WNTY 


KEY 




03504 


39 


03567 


00100 


WATY 


KEY+3 




03516 


38 


03578 


00100 


WNTY 


MOU 




03528 


49 


03242 


00000 


B 


SNOP-12,,, 


GO RESTORE DATA FIELDS 


03540 




00006 




OSC 


6,0 




03547 




00001 




MIC DAC 


I. t 




03548 




00016 




DSC 


16,0 




03564 




00014 




KEY DSC 


14,0 




03578 




00002 




MOU DSC 


2,0 




03580 




00001 




SE DC 


i." 












* INDIRECT ADDRESS TABLE 


03585 




00005 


-3658 


KA1 DSA 


KD1 




03590 




00OQ5 


-3664 


KA2 DSA 


KD2 
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03595 
03600 
03605 
03610 
036L5 
03620 
03625 
03630 



00005 -3671 
00005 -363N 
000Q5 -364- 
00005 -364N 
00005 -3652 
00005 -3665 
00005 -3659 
00005 -3647 



KA3 

KA4 

KA5 

KA6 

KA7 

KA8 

KA9 

MA 

* 



ft 1 L. ^ tZ 

03633 


UUUU j 




KC 1 


03640 


C0005 


-3664 


KC2 


03645 


00005 


-3671 


KC3 
• 


03647 


00002 




* 

KM 


03651 


00004 




ANS 


03652 


00001 




FLG 


03658 


00006 




K01 


03664 


00006 




K02 


03665 


00001 




RM 
• 


03671 


00006 




KWK 


03672 


00001 




* 


05008 








05011 


00004 






05012 


49 01038 


00000 


BDI 


05024 


49 01050 


00000 


• 


05047 








05051 


00005 


-3671 


0001 


05056 


00005 


-3664 


EVN6 


05057 


00001 






05062 


00005 


-3664 


EVN2 


05063 


00002 






05069 


00005 


-3671 


0DD9 


05070 


00001 






05075 


00005 


-3671 


0DD5 


05080 


00005 


-3664 


EVNO 


00514 









OSA KWK 

DSA -KC1 

DSA -KC2 

OSA -KC3 

OSA FLG 

DSA RM 

DSA KD1+1 

OSA KM 

ADDRESSES FOR CHAINED I/A 

OSA KDl 



OSA 
OSA 



KD2 
KWK 



AREA 



DATA 
OC 2,33 
DC 4,1089 
DC 1,0,, 
DC 6,99999 
OC 6,-99999 
DC 1,'*, 
WORKING 
DC 6,0 
DC 1,' 

SUB ROUTINE 
DQRG 5008 
DC 4,0502,, 
B T5+12,,, 
B T5+24,,, 

INDIRECT 
DORG 504 7 
KWK 
KD2 

1. Q 
K02 

2, q 

KWK 
ItQ 
KWK 
KD2 
START 



FLAG ZERO 



RECORD MARK 



FOR BO TEST 



FIRST 4 OIGITS OF I/A 
OPN OK 

ADDRESSES FOR ODD/EVEN TESTS 



DSA 
OSA 
DSC 
DSA 
OSC 
OSA 
OSC 
OSA 
OSA 
DEND 
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DT X06 80/80 LIST 



360007200500360020100500440001200276260005900274250001100000260009000269 -0000 

260009500264310000000200260011400274250000000011490001200000 -0001 

M4677076* 1-1-0500-0508 -0002 

-5080* 1-1-0508-0513 -0003 
4500538 18 1 1749 1800000000340065400 1023 UOOQOO 358 1 39006 1100 100*0- 1-05 14-05 74 -0004 

34000000010K1600539000M9490065400000* 0-1-0574-0610 -0005 

M463677076237176727020710049214100634562630* 1-1-0610-0654-0006 

410000-0000-* 0-1-0654-0666 -0007 

* 1-1-0656-0657 -0008 

* 1-1-0661-0662 -0009 
4 70069000800 170331 2-07 14460065400200490Q754QO000* 0-1-0666-0714 -0010 
-0654* 1-1-0714-0719 -0011 
ON556570022P0707000-00022P0707000-* 1-1-0719-0754 -0012 
32000000000- * 0-1-0754-0766 -0013 

* 1-1-0761-0762 -0014 
47007900080017033 12-08144600754002004900854QOOOO* 0-1-0766-0814 -0015 
-0754* 1-1-0814-0819 -0016 
0O24600007070707000-00O22P0707000-* 1-1-0819-0854 -0017 
4400878036 1N4900890000001702990-O91446008!*4q0200490094000000*0- 1-0854-09 14 -0018 
-0854* 1-1-0914-0919 -0019 
0M2554600* 1-1-0919-0928 -0020 
-0878-361N* 1-1-0928-0938 -0021 

* 1-1-0938-0939-0022 
45009640362-490097600000 1702990-10004600940(|0200490102600000*0- 1-0940- 1000 -0023 
-0940* 1-1-1000-1005 -0024 
0M2555900* 1-1-1005-1014 -0025 
-0964-362-* 1-1-1014-1024 -0026 

* 1-1-1024-1025 -0027 
43050iK036581702990-107446010260020049Q1100<jjOOOO* 0-1-1026-10 74 -0028 
-1026* 1-1-1074-1079 -C029 
OM2440000* 1-1-1079-1088 -0030 
-501K-3658* 1-1-1088-1098 -0031 

* 1-1-1098-1099 -0032 
1603671-00003 10 36660362N24036640367 14601 1 60$ 1200 1702990-1 184*0— 1- 1100-1160 -0033 
460110000200490121000000* 0-1-1160-1184 -0034 
-1100* 1-1-1184-1189 -0035 
003590000* 1-1-1189-1198 -0036 
-3666-362N* 1-1-1198-1208 -0037 

* 1-1-1208-1209 -0038 
1701234000-0490124600000420000-0000-* 0-1-1210-1246 -0039 

* 1-1-1236-1237 -0040 

* 1-1-1241-1242 -0041 
4701270008001703312-1294460121000200490133400000* 0-1-1246-1294 -0042 
-1210* 1-1-1294-1299 -0043 
OM 2420 0002 2P 070 7000-0 0022P 070700 0-* 1-1-1299-13 34 -0044 
1603671-9696U036710R6904601 3820 1200 1702990- 1406460133400200*0- 1-1334- 1394 -0045 
490143200000* 0-1-1394-1406 -0046 
-1334* 1-1-1406-1411 -0047 
OM1540000* 1-1-1411-1420 -0048 
-3671* 1-1-1420-1425 -0049 
0R690* 1-1-1425-1431 -0050 
3201537000002603671036582103671030644601492012001702990-1516*0-1-1432-1492 -0051 
460144400200490154200000* 0-1-1492-1516 -0052 
-1444* 1-1-1516-1521 -0053 
OMIOOOOOO* 1-1-1521-1530-0054 
-3671-3664* 1-1-1530-1540-0055 

* 1-1-1540-1541 -0056 
26036710365821036710359-4601590012001702990-1614460154200200*0-1-1542-1602 -0057 
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490164000000* 0-1-1602-1614 -0058 

_i542* 1-1-1614-1619 -0059 

OMIOOOOOO* l-i-1619-1628 -0060 

.,671-359-* 1-1-1623-1638 -0061 

/ 1-1-1638-1639 -0062 
260367 1036582 10359N03664460 1688012001 702990-^ 17 12460 164000200*0- 1-1640- 1700 -0063 

490173800000* 0-1-1700-1712 -0064 

-1640* ' 1-1-1712-1717 -0065 

OMIOOOOOO* 1-1-1717-1726 -0066 

-359N-3664* 1-1-1726-1736 -0067 

t 1-1-1736-1737 -0068 
2603671036b8K10367l0366446017980i2001702990^18?2390184900100*0- 1-1738-1798 -0069 

4601738002004,90189400000* 0-1-1798-1822 "0070 

_ 1738 * l-i-1822-1827 -0071 

OMIOOOOOO* 1-1-1827-1836 -0072 

-3671-3664* 1-1-1836-1846 -0073 

# 1-1-1846-1847 -0074 

-00046534147005655007200564600565700435644450* 1-1-1848-18 94 -0075 
260367l03658210361-0360N460195401200i702990-» 1978390200500100*0-1- 1894- 1954 -OC f 6 

460189400200490204800000* 0-1-1954-1978 -0077 

_ 189Ai 1-1-1978-1983 -0078 

OMIOOOOOO* 1-1-1983-1992 -0079 

-361— 360N* 1-1-1992-2002 -0080 

^ 1-1-2002-2003 -0081 

-0005 7C04155440058004 3484 14955454400492 14l0f 1-1-2004-2048 -C082 
260367103656210505J0506K4602096012Q01702990-»2120460204800200*0-1-2048-2108 -0083 

490214600000* *°°!' 

_ 20 , 8 t l-i-2120-2125 -0085 

OMIOOOOOO* 1-1-2125-2134 -0086 

-505J-506K* 1-1-2134-2144 -0087 

t 1-1-2144-2145 -0088 
2603671036582 10507N050504602 194012001702990^22184602^4600200*0- 1-2146-2206 -0089 

490224400000* 0-1-2206-2218-0090 

_2U6* 1-1-2218-2223 -0091 

OMIOOOOOO* 1-1-2223-2232-0092 

-507N-5050* 1-1-2232-2242 -0093 

t 1-1-2242-2243 -0094 
260367103658210506R0508-460229201200l702990ir23l6460224400200*0- 1-2244-2304 -0095 

490234200000* 0-1-2304-2316 -0096 

-22<*U 1-1-2316-2321 -0097 

OMIOOOOOO* 1-1-2321-2330 -0098 

-506R-508-* 1-1-2330-2340 -0099 

+ 1-1-2340-2341 -0100 
240358N0363N4602378012001702990-2402460234200200490242800000*0- 1-2342-2402 -0101 

_ 23 42* 1-1-2402-2407 -0102 

OM3000000* 1-1-2407-2416 -0103 

-358N-363N* 1-1-2416-2426 -0104 

^?a* jo* 1-1-2426-2427 -0105 
2 30363-036472403651000994602476012001702990-2500460242800200*0-1-2428-2488 -0106 

490252600000* 0-1-2488-2500 -0107 

-2428* 1-1-2500-2505 -0108 

0N400G000* ~n!?n 

-363—3647* 1-1-2514-2524 -0110 

^ibi jo^f* 1-1-2524-2525 -Olll 

23036470363-2403651000994602574012001702990^2598460252600200*0-1-2526-2586 -0112 

490262400000* 0-1-2586-2598 -0113 

-2526* 1-1-2598-2603 -0114 

0N4000000* 1-1-2603-2612 -0115 

-3647-363-* 1-1-2612-2622 -0116 

; 36 * 7 363 * 1-1-2622-2623 -0117 
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2 8000990365129000980363-24036470009746026040 1200 1702990-2708*0- 1-2624-2684 -0118 
460262400200490273400000* 0-1-2684-2708 -0119 

-2624* 1-1-2708-2713 -0120 

OM4000000* 1-1-2713-2722 -0121 

-0098-363-* 1-1-2722-2732 -0122 

* 1-1-2732-2733 -0123 
1102909-0001460285400400450278218117491800000000340000000102*0-1-2734-2794 -0124 
38029050010039029 1300 IC0460 065400400 360000000500490000000000*0- 1-2794-2854 -0125 
2402904029094602 8 780 14C046027820 120049006*400000* 0-1-2854-2902 -0126 
-00-0000* 1-1-2902-29U -0127 
-0574162624562C0435654575 3456345234463006770760* 1-1-2912-2960 -0128 
-OOQOGOOOQCOOOCOOOOOOGOOOOOOOO* 1-1-2960-2990 -0129 
46032540010047030 3300 300480000000000490324200000260306102989*0-1-2990-3050 -0130 
3 1029 6000C 00 340000000 102 340000000 102 2 603 3040 2964 390326700 J 00*0- 1-3050- 31 10 -0131 
380330000 100 340000000 1022603304029 78 150297300000* 0-1-3110-3158 -0132 

* 1-1-3157-3158 -0133 
390296700100340000000 101 3303300000003803300QO 100340000000 101*0- 1-3 158- 32 18 -0134 
3 3029790000038 02 9 7 900 ICO 3 103531 10000*»200000Q0000* 0-1-3218-3266 -0135 
M 92 14 100464 149 3364 5 94 52 353 5643000* 1-1-3266-3300-0136 
-0000* 1-1-3300-3 106 -0137 
-0000* 1-1-3306-3311-0138 
460325400 10046030 140030026033590 331 13 103540Q 0000260330403544*0- 1-3312- 3372 -0139 
250356 30366525035 77036652503565036652503545q 3665340000000 102*0- 1-3372- 34 32 -0140 
340000000 1C2390326700 100380330000 10034000000,0102390354700 100*0- 1-34 32- 3*92 -0141 
380356400100390356700 lC0380357800i004903242qO000* 0-1-3492-3540 -0142 



oooooo-ooocooooooooooocooocooooooooooooo* 

-3658-3664-3671-363N-364 — 364N- 365 2-3665- 365 9-3647-3658-3664* 
-3671* 

L3J039 — 99999-9999R* 
-00000* 
-502* 

4901 03800000490 1O5COO000* 
-3671-3664* 
0* 

-3664* 
00* 

-3671* 
0* 

-3671-3664* 

00000 L6000Q0005004900000* 1205723-000 133057230000049057 120000-8-0096-01 15 -0157 
360010000500360017200500360024400500360031600500360000000500 -0158 
000000000000102030400020406080003060902 10040802 16 100500 15 10200602 18 14200* -0159 
70t 11282008061422 300908172630000000000506070 809001214 16 18 15 18 11242720242* -QJ.6G 
8223635203530454036324844!; 5324946536048465462754453627180 123456789 1234 56* -0161 
789-23456789- J3456789- JK456789-JKL567Q9- JKLM6789- JKLKN.789-JKLMN089-JKLMN* -0162 
M8000000000049-05140P9-JKLMNOPC* L10038800019H90000000000M90003600000 -0163 



1-3540-3581 -0143 
-1-3581-3641 -0144 
-1-3641-3646 -0145 
-1-3646-3666 -0146 
-1-3666-3673-0147 
-1-5008-5012 -0148 
-J-5012-5036 -0149 
-1-5047-5057 -0150 
-1-5057-5058 -0151 
-1-5058-5063 -0152 
-1-5063-5065 -0153 
-1-5065-5070 -0154 
-1-5070-5071 -0155 
-1-5071-5081 -0156 
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